home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / OS2 / FCHEK284.ZIP / pointer.patch < prev    next >
Encoding:
Text File  |  1994-11-06  |  4.4 KB  |  145 lines
  1. This file contains information to allow users to add minimal support
  2. for the nonstandard POINTER statement provided by many FORTRAN 77
  3. vendors.  The syntax is described below.  It is not the same as the
  4. Fortran 90 POINTER statement.  This fix does not include real checking
  5. of the statement other than basic syntax, but it keeps ftnchek from
  6. choking on it.  No guarantees accompany this fix.
  7.  
  8. To implement the fix, go to the directory containing the ftnchek
  9. source code and give the commands
  10.     $ patch < pointer.patch
  11.     $ make
  12.  
  13. Thanks go to John Dannenhoffer for working this out.  A few minor
  14. changes have been made to improve it.  The explanations following the
  15. patch code are from him.
  16.  
  17. The following is the patch code.
  18.  
  19. diff -c ./fortran.y pointer/fortran.y
  20. *** ./fortran.y    Tue Oct 25 17:25:19 1994
  21. --- pointer/fortran.y    Sun Nov  6 16:45:05 1994
  22. ***************
  23. *** 224,229 ****
  24. --- 224,230 ----
  25.   %token tok_OPEN
  26.   %token tok_PARAMETER
  27.   %token tok_PAUSE
  28. + %token tok_POINTER
  29.   %token tok_PRECISION
  30.   %token tok_PRINT
  31.   %token tok_PROGRAM
  32. ***************
  33. *** 460,465 ****
  34. --- 461,467 ----
  35.           |    external_stmt
  36.           |    intrinsic_stmt
  37.           |    save_stmt
  38. +         |       pointer_stmt
  39.           ;
  40.   
  41.   
  42. ***************
  43. *** 1440,1445 ****
  44. --- 1442,1478 ----
  45.               {
  46.                    def_intrins_name(&($3));
  47.               }
  48. +         ;
  49. + 
  50. +         /* constructs for POINTER(pointer=pointee) statement */
  51. + pointer_stmt    :       tok_POINTER pointer_item_list EOS
  52. +         ;
  53. + 
  54. + pointer_item_list:      pointer_item
  55. +         |       pointer_item_list ',' pointer_item
  56. +         ;
  57. + 
  58. + pointer_item    :       '(' pointer_name ',' pointee_name ')'
  59. +         ;
  60. + 
  61. + pointer_name    :       symbolic_name
  62. +             {
  63. +                  declare_type(&($1),type_INTEGER,local_wordsize);
  64. +             }
  65. +         ;
  66. + 
  67. + pointee_name    :       symbolic_name
  68. +                 {
  69. +                 /* Suppress set/used warnings since
  70. +                    often is accessed only via pointer */
  71. +                      use_lvalue(&($1));
  72. +                      use_variable(&($1));
  73. +                 }
  74. +         |       array_declarator
  75. +                 {
  76. +                      use_lvalue(&($1));
  77. +                      use_variable(&($1));
  78. +                 }
  79.           ;
  80.   
  81.   /* 26 */
  82. diff -c ./keywords.h pointer/keywords.h
  83. *** ./keywords.h    Sun Jul 10 18:56:41 1994
  84. --- pointer/keywords.h    Sun Nov  6 16:45:05 1994
  85. ***************
  86. *** 106,111 ****
  87. --- 106,112 ----
  88.   {"OPEN",    tok_OPEN,    IK | EK | MP | NA},
  89.   {"PARAMETER",    tok_PARAMETER,    IK | NI | EK | MP | NA},
  90.   {"PAUSE",    tok_PAUSE,    IK | NP | EK},
  91. + {"POINTER",     tok_POINTER,    IK | MP | NI | EK | NA},
  92.   {"PRECISION",    tok_PRECISION,    IK | NI | EK | TY},
  93.   {"PRINT",    tok_PRINT,    IK | EK},
  94.   {"PROGRAM",    tok_PROGRAM,    IK | NP | NI | EK},
  95.  
  96.  
  97. Date: 18 Nov 1993 12:37:24 -0500
  98. From: dannenho@percheron.res.utc.com (John Dannenhoffer)
  99. To: moniot@mary.fordham.EDU
  100.  
  101. Prof. Moniot,
  102.  
  103. Thank you for your help in getting me started with adding the
  104. POINTER statement to ftnchek.  With your help, I was able to
  105. successfully include the POINTER statement in my version of ftnchek.
  106. I have included the changes which I have made so that you could
  107. include them in a future release (if you want to).
  108.  
  109. The description of the POINTER statement, taken roughly from the
  110. IBM Fortran manual is:
  111.  
  112.    Syntax:
  113.       POINTER (pointer,pointee) [,(pointer,pointee)]
  114.    where:
  115.       pointer   is the name of a pointer variable
  116.       pointee   is a variable name, array declarator, or array name
  117.  
  118.    The POINTER statement allows you to specify that the value of the
  119.    variable 'pointer' should be used as the address for any reference
  120.    to 'pointee'.  The compiler does not allocate storage for the
  121.    'pointee'.  The storage is allocated at execution time by the
  122.    assignment of the address of a block of storage to the associated
  123.    pointer.  The pointer can become associated with either static or
  124.    dynamic storage.  A reference to the pointee requires that the
  125.    associated pointer be defined.
  126.  
  127.    A pointer is a variable of type INTEGER*4, and you cannot
  128.    explicitly assign a type to it.  You can use pointers in any
  129.    expression or statement in which an INTEGER*4 variable can be used.
  130.    You can assign any data type to a pointee, but you cannot assign a
  131.    storage class or initial value to a pointee.
  132.  
  133.     An actual array that appears as a pointee in a POINTER statement
  134.     is called a pointee array.  You can dimension a pointee array in
  135.     an explicit type statement, a DIMENSION statement, or in the
  136.     POINTER statement itself.
  137.  
  138.  
  139. Thanks again for all your help.
  140.  
  141. John Dannenhoffer
  142. (203) 727-7775
  143. dannenho@utrc.utc.com
  144.  
  145.